2 IFFL=0THENFL=1:LOAD"H",8,1
7 IFFL=1THENFL=2:LOAD"C",8,1
8 IFFL=2THENFL=3:LOAD"D",8,1
10 KH=8*16
92 TR=4096+13*256+12*16+14
93 POKETR,3:POKETR+1,3:GOSUB1000
95 KH=8*16
1000 REM
1004 PRINT"[147][144]":POKE53281,8
1005 POKE53280,1
1010 P=12*4096+256:IN=P+156:CL=P+101:DE=P+167
1012 AR=P+128:CA=P+137:BR=P+217:CB=P+226
1099 SYSIN
1100 POKE CA,11*16+4 :SYS AR
1110 POKE CB,3:SYS BR
1111 POKE53265,PEEK(53265)OR16
1200 SYS4096+14*256+KH
2000 KH=2:GOTO1200